work_dir <- '~/Box/CogNeuroLab/Aging Decision Making R01/Data/Actigraphy/processed_2019-12-11'
load("~/Box/CogNeuroLab/Aging Decision Making R01/Data/combined_data_2020-01-27.RData")
cr_data <- dplyr::select(d, record_id, actamp:fact, IS:RA)

rm(d)
files <- list.files(work_dir, pattern = '.csv', full.names = TRUE)

for (file in files) {
  p <- act_plot_all(file, 10, date=NULL, add_table=FALSE)
}